< previous page	page_150	next page >
Page 150    lcid = GetUserDefaultLCID()    info = String$(255, 0)    Call GetLocaleInfo(lcid, LOCALE_SENGLANGUAGE, info, 255)    info$ = Left$(info, InStr(info, Chr$(0)) - 1)    MsgBox lcid & ":" & info$, vbOKOnly, "User Default LCID" End Sub
< previous page	page_150	next page >